home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / Programming / Programming Languages / XLISP 2.0 / XLISP Tools / Utility (UL) / UTIL.LSP < prev    next >
Encoding:
Lisp/Scheme  |  1988-04-07  |  589 b   |  22 lines  |  [TEXT/ttxt]
  1. ;; Larry Mulcahy 1988
  2. ;; util
  3.  
  4. (provide 'utility)
  5. (require 'io)
  6. (require 'sequence)
  7.  
  8. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  9. ; e
  10. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  11.  
  12. (defun e (f) 
  13.   (system (concatenate 'string "emacs " f))
  14.   (if (y-or-n-p :prompt (concatenate 'string "Load " f "? "))
  15.       (load f :verbose *load-verbose*)))
  16.  
  17. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  18. ; dos
  19. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  20.  
  21. (defun dos () (system "a:\\command.com"))
  22.